﻿Public Class frmClientes
    Dim _titulo As String
    Dim _tipoVentana As String
    Dim _idCliente As String
    Dim _idDireccion As String
    Dim utilidades As New Utilidades
    Dim _sePresionoGuardar As Boolean = False
    Dim _componentesHabilitados As Boolean
    Dim secuencia As Integer = 1000
    Dim secuenciaEmpleos As Integer = 1000
    Dim _formPrincipal As frmPrincipal

    Public Property idCliente()
        Get
            Return _idCliente
        End Get
        Set(ByVal value)
            _idCliente = value
        End Set
    End Property

    Public Sub New(ByVal tipoVentana As Integer, ByRef form As frmPrincipal)

        Me.InitializeComponent()

        If tipoVentana = Constantes.Ventana_Tipo_Apertura_Nuevo Then
            _titulo = "Nuevo Cliente"
            _componentesHabilitados = True
        End If
        If tipoVentana = Constantes.Ventana_Tipo_Apertura_Detalle Then
            _titulo = "Detalle de Cliente"
            _componentesHabilitados = False
        End If
        If tipoVentana = Constantes.Ventana_Tipo_Apertura_Edicion Then
            _titulo = "Modificar Cliente"
            _componentesHabilitados = True
        End If

        _tipoVentana = tipoVentana
        _formPrincipal = form

    End Sub
    Private Sub frmClientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim myAccesoDatos As New AccesoDatos
        'título 
        Me.Text = _titulo
        ' cargo Combos
        myAccesoDatos.traer_valores_combo(Me.cmbTipoDocumento, Constantes.Tabla_TIPOS_DOCUMENTOS)
        myAccesoDatos.traer_valores_combo(Me.cmbSexo, Constantes.Tabla_GENERO)
        myAccesoDatos.traer_valores_combo(Me.cmbTipoDocumentoConyuge, Constantes.Tabla_TIPOS_DOCUMENTOS)
        myAccesoDatos.traer_valores_combo_Area(Me.cmbPaisNacimiento, Constantes.Tabla_AREAS_GEOGRAFICAS, Constantes.Tipo_Area_PAIS)
        myAccesoDatos.traer_valores_combo(Me.cmbEstadoCivil, Constantes.Tabla_ESTADOS_CIVILES)
        myAccesoDatos.traer_valores_combo(Me.cmbPertenenciaVivienda, Constantes.Tabla_PERTENENCIA_VIVIENDA)
        myAccesoDatos.traer_valores_combo_Area(Me.cmbLocalidad, Constantes.Tabla_AREAS_GEOGRAFICAS, Constantes.Tipo_Area_LOCALIDAD)

        If _tipoVentana = Constantes.Ventana_Tipo_Apertura_Nuevo Then
            Me.cargarDatosNuevoCliente()
        End If
        If _tipoVentana = Constantes.Ventana_Tipo_Apertura_Edicion Then
            Me.cargarDatosCliente()
        End If
        If _tipoVentana = Constantes.Ventana_Tipo_Apertura_Detalle Then
            Me.cargarDatosCliente()
            habilitacionComponentesDetalle()
        End If

        Me.mostrarBotones()


    End Sub
    Private Sub cargarDatosNuevoCliente()
        Dim fecha As String = Format(Today, "dd/MM/yyyy")
        Dim myAccesoDatos As New AccesoDatos
        Dim tabla As New Data.DataTable

        'Obtengo el NUEVO ID del cliente
        Dim consultaCliente As String
        Dim id As Integer = 0

        consultaCliente = "SELECT MAX (ID) AS ULTIMO FROM CLIENTES "
        tabla = myAccesoDatos.ejecutarConsulta(consultaCliente)
        id = tabla.Rows(0)("ULTIMO")

        Me.txtFechaAlta.Text = fecha
        Me.txtEstadoCliente.Text = "Al día"
        Me.txtPuntaje.Text = "0"
        habilitarComponentesAlta()
    End Sub

    Private Sub habilitarComponentesAlta()
        Me.txtNumeroCliente.Enabled = False
        Me.txtFechaAlta.Enabled = False
        Me.txtPuntaje.Enabled = False
        Me.txtEstadoCliente.Enabled = False
        Me.chk.Checked = True
        Me.cmdNuevaSolicitudPrestamo.Enabled = False

        'Limpiar Grid
        Me.gridTelefono.Rows.Clear()
        Me.gridBienesInmuebles.Rows.Clear()
        Me.gridBienesMuebles.Rows.Clear()
        Me.gridEmpleos.Rows.Clear()

        Me.cmdModificarTelefono.Enabled = False
        Me.cmdBorrarTelefono.Enabled = False

        Me.cmdModificarEmpleo.Enabled = False
        Me.cmdBorrarEmpleo.Enabled = False

        Me.cmdModificarInmueble.Enabled = False
        Me.cmdBorrarInmueble.Enabled = False

        Me.cmdModificarMueble.Enabled = False
        Me.cmdBorrarMueble.Enabled = False
    End Sub

    Private Sub habilitacionComponentesDetalle()
        Me.lblAsterisco.Enabled = False
        Me.lblDatosRequeridos.Enabled = False
        Me.chk.Enabled = False
        Me.Label16.Enabled = False
        Me.Label17.Enabled = False
        Me.Label18.Enabled = False
        Me.Label19.Enabled = False
        Me.txtNumeroCliente.Enabled = False
        Me.txtPuntaje.Enabled = False
        Me.txtFechaAlta.Enabled = False
        Me.txtEstadoCliente.Enabled = False
        Me.cmbTipoDocumento.Enabled = False
        Me.cmbTipoDocumento.Enabled = False

        Me.txtFechaAlta.Enabled = False
        Me.txtFechaNacimiento.Enabled = False
        Me.txtEstadoCliente.Enabled = False
        Me.txtGrupoFamiliar.Enabled = False
        Me.txtCuil.Enabled = False
        Me.txtNumeroCliente.Enabled = False
        Me.txtNombre.Enabled = False
        Me.txtApellido.Enabled = False
        Me.txtMontoAlquiler.Enabled = False
        Me.txtCalle.Enabled = False
        Me.txtNumeroCalle.Enabled = False
        Me.txtPiso.Enabled = False
        Me.txtEmail.Enabled = False
        Me.txtNumeroDocumento.Enabled = False
        Me.txtNombreConyuge.Enabled = False
        Me.txtApellidoConyuge.Enabled = False
        Me.txtNumeroDocumentoConyuge.Enabled = False
        Me.txtDepartamento.Enabled = False
        Me.cmbLocalidad.Enabled = False
        Me.cmbSexo.Enabled = False
        Me.cmbTipoDocumento.Enabled = False
        Me.cmbTipoDocumentoConyuge.Enabled = False
        Me.cmbPaisNacimiento.Enabled = False
        Me.cmbEstadoCivil.Enabled = False
        Me.cmbPertenenciaVivienda.Enabled = False
        Me.gridBienesMuebles.Enabled = False
        Me.gridBienesInmuebles.Enabled = False
        Me.gridTelefono.Enabled = False
        Me.gridEmpleos.Enabled = False

        Me.cmdAgregarTelefono.Enabled = False
        Me.cmdModificarTelefono.Enabled = False
        Me.cmdVerEmpleo.Enabled = False
        Me.cmdVerMueble.Enabled = False
        Me.cmdVerInmueble.Enabled = False
        Me.cmdBorrarTelefono.Enabled = False
        Me.cmdAgregarEmpleo.Enabled = False
        Me.cmdModificarEmpleo.Enabled = False
        Me.cmdBorrarEmpleo.Enabled = False
        Me.cmdAgregarMueble.Enabled = False
        Me.cmdModificarMueble.Enabled = False
        Me.cmdBorrarMueble.Enabled = False
        Me.cmdAgregarInmueble.Enabled = False
        Me.cmdModificarInmueble.Enabled = False
        Me.cmdBorrarInmueble.Enabled = False
        Me.Label25.Enabled = False
        Me.Label12.Enabled = False
        Me.Label26.Enabled = False
        Me.Label13.Enabled = False
        Me.Label9.Enabled = False
        Me.Label24.Enabled = False
        Me.Label70.Enabled = False
        Me.Label14.Enabled = False
        Me.Label29.Enabled = False
        Me.Label59.Enabled = False
        Me.Label6.Enabled = False
        Me.Label40.Enabled = False
        Me.Label57.Enabled = False
    End Sub

    Private Sub cargarDatosCliente()
        Dim myAccesoDatos As New AccesoDatos
        Dim tablaDB As New Data.DataTable
        Dim myConsulta As String
        Dim consultaTelefonos As String
        Dim consultaDatosEmpleo As String
        Dim consultaMuebles As String
        Dim consultaInmuebles As String

        myConsulta = "SELECT C.ID, EC.DESCRIPCION,CONVERT(VARCHAR(10), C.FECHA_ALTA , 103), C.PUNTAJE,  " & _
               "C.ID_TIPO_DOCUMENTO, C.NRO_DOCUMENTO ,C.APELLIDO ,C.NOMBRE ,C.CUIL, C.ID_PAIS_NACIMIENTO ,C.ID_ESTADO_CIVIL, " & _
               "CONVERT (VARCHAR(10), C.FECHA_NACIMIENTO, 103),C.ID_GENERO, C.ID_TIPO_DOCUMENTO_CONYUGE, C.NRO_DOCUMENTO_CONYUGE , " & _
               "C.APELLIDO_CONYUGE ,C.NOMBRE_CONYUGE, C.GRUPO_FAMILIAR ,D.CALLE ,D.NUMERO ,D.PISO ,D.DEPTO, D.ID_LOCALIDAD, " & _
               "C.ID_PERTENENCIA_VIVIENDA, CONVERT(int, floor(C.MONTO_ALQUILER)) AS MONTO_ALQUILER, C.EMAIL, C.ID_DIRECCION " & _
           "FROM CLIENTES C INNER JOIN ESTADOS_CLIENTES  EC ON (C.ID_ESTADO_CLIENTE =EC.ID )" & _
               "INNER JOIN TIPOS_DOCUMENTOS TD ON (C.ID_TIPO_DOCUMENTO =TD.ID ) " & _
               "INNER JOIN DIRECCIONES D ON (C.ID_DIRECCION =D.ID ) " & _
               "INNER JOIN AREAS_GEOGRAFICAS AG ON (D.ID_LOCALIDAD = AG.ID ) " & _
               "INNER JOIN TIPO_AREA_GEOGRAFICA TAG ON (TAG.ID =AG.ID_TIPO_AREA_GEOGRAFICA ) " & _
               "INNER JOIN ESTADOS_CIVILES ECI ON (C.ID_ESTADO_CIVIL =ECI.ID )" & _
               "INNER JOIN GENERO G ON (C.ID_GENERO =G.ID ) " & _
               "INNER JOIN PERTENENCIA_VIVIENDA PV ON (C.ID_PERTENENCIA_VIVIENDA =PV.ID) " & _
         "WHERE C.ID = " & _idCliente

       

        tablaDB = myAccesoDatos.ejecutarConsulta(myConsulta)

        _idDireccion = Convert.ToString(tablaDB.Rows.Item(0).Item(26))

        'Llenamos  Valores Correspondientes  A datos PERSONALES
        Me.txtNumeroCliente.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(0))
        Me.txtEstadoCliente.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(1))
        Me.txtFechaAlta.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(2))
        Me.txtPuntaje.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(3))
        Me.cmbTipoDocumento.SelectedValue = Convert.ToString(tablaDB.Rows.Item(0).Item(4))
        Me.txtNumeroDocumento.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(5))
        Me.txtApellido.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(6))
        Me.txtNombre.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(7))
        Me.txtCuil.Text = Convert.ToString(tablaDB.Rows(0).Item(8))
        Me.cmbPaisNacimiento.SelectedValue = Convert.ToString(tablaDB.Rows(0).Item(9))
        Me.cmbEstadoCivil.SelectedValue = Convert.ToString(tablaDB.Rows.Item(0).Item(10))
        Me.txtFechaNacimiento.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(11))
        Me.cmbSexo.SelectedValue = Convert.ToString(tablaDB.Rows.Item(0).Item(12))
        Me.txtGrupoFamiliar.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(17))

        If Convert.ToString(tablaDB.Rows.Item(0).Item(14)) = "" Then
            Me.chk.Checked = False
            Me.cmbTipoDocumentoConyuge.SelectedValue = -1
            Me.txtNumeroDocumentoConyuge.Text = ""
            Me.txtApellidoConyuge.Text = ""
            Me.txtNombreConyuge.Text = ""
        Else
            Me.chk.Checked = True
            Me.cmbTipoDocumentoConyuge.SelectedValue = Convert.ToString(tablaDB.Rows(0).Item(13))
            Me.txtNumeroDocumentoConyuge.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(14))
            Me.txtApellidoConyuge.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(15))
            Me.txtNombreConyuge.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(16))
        End If


        ' Llenamos datos de Ubicación
        Me.txtCalle.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(18))
        Me.txtNumeroCalle.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(19))
        Me.txtPiso.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(20))
        Me.txtDepartamento.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(21))
        Me.cmbLocalidad.SelectedValue = Convert.ToString(tablaDB.Rows.Item(0).Item(22))
        Me.cmbPertenenciaVivienda.SelectedValue = Convert.ToString(tablaDB.Rows.Item(0).Item(23))
        Me.txtMontoAlquiler.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(24))
        Me.txtEmail.Text = Convert.ToString(tablaDB.Rows.Item(0).Item(25))


        ' Telefonos del cliente
        consultaTelefonos = "SELECT TC.ID_CLIENTE AS ID_CLIENTE, TC.NRO_SECUENCIA  AS NRO_SECUENCIA,TC.ID_TIPO_TELEFONO ID_TIPO_TELEFONO ,TT.DESCRIPCION AS DESCRIPCION,TC.NRO_TELEFONO AS NUMERO   " & _
        "FROM TELEFONOS_CLIENTE TC INNER JOIN TIPO_TELEFONO TT ON (TC.ID_TIPO_TELEFONO=TT.ID ) WHERE TC.ID_CLIENTE = " & _idCliente
        tablaDB = myAccesoDatos.ejecutarConsulta(consultaTelefonos)

        If tablaDB.Rows.Count > 0 Then
            For c As Integer = 0 To tablaDB.Rows.Count - 1
                Me.gridTelefono.Rows.Add(tablaDB.Rows.Item(c).Item(0), tablaDB.Rows.Item(c).Item(1), _
                                         tablaDB.Rows.Item(c).Item(2), tablaDB.Rows.Item(c).Item(3), _
                                         tablaDB.Rows.Item(c).Item(4))
            Next
        End If
        habilitarBotonesGrillaTelefono()

        'Datos Laborales del cliente
        consultaDatosEmpleo = "SELECT E.ID_CLIENTE AS ID_CLIENTE, E.NRO_SECUENCIA AS NRO_SECUENCIA, E.NOMBRE_ORGANIZACION AS ORGANIZACION, " & _
                                "CONVERT(VARCHAR(10),E.FECHA_INCORPORACION, 103) AS FECHA, E.CARGO AS CARGO," & _
                                 "CONVERT(int, floor(E.SALARIO_NETO))  AS SALARIO,  " & _
                                "E.ID_DIRECCION AS ID_DIRECCION, D.CALLE AS CALLE, D.NUMERO AS NRO,D.PISO AS PISO, D.DEPTO AS DEPTO," & _
           "D.ID_LOCALIDAD AS ID_LOCALIDAD,AG.DESCRIPCION  AS LOCALIDAD, E.TELEFONO AS TELEFONO, E.PERSONA_CONTACTO AS CONTACTO, " & _
           "E.ID_TIPO_EMPLEO AS ID_TIPO_EMPLEO, TE.DESCRIPCION AS EMPLEO, E.OBSERVACIONES " & _
        "FROM EMPLEOS_CLIENTES E INNER JOIN DIRECCIONES D ON (E.ID_DIRECCION = D.ID) " & _
              "INNER JOIN AREAS_GEOGRAFICAS AG ON (D.ID_LOCALIDAD = AG.ID )" & _
              "INNER JOIN TIPOS_EMPLEOS TE ON (E.ID_TIPO_EMPLEO =TE.ID )" & _
        "WHERE E.ID_CLIENTE = " & _idCliente
        tablaDB = myAccesoDatos.ejecutarConsulta(consultaDatosEmpleo)
        If tablaDB.Rows.Count > 0 Then
            For c As Integer = 0 To tablaDB.Rows.Count - 1
                Me.gridEmpleos.Rows.Add(tablaDB.Rows.Item(c).Item(0), tablaDB.Rows.Item(c).Item(1), _
                                         tablaDB.Rows.Item(c).Item(2), tablaDB.Rows.Item(c).Item(3), _
                                         tablaDB.Rows.Item(c).Item(4), tablaDB.Rows.Item(c).Item(5), _
                                         tablaDB.Rows.Item(c).Item(6), tablaDB.Rows.Item(c).Item(7), _
                                         tablaDB.Rows.Item(c).Item(8), tablaDB.Rows.Item(c).Item(9), _
                                         tablaDB.Rows.Item(c).Item(10), tablaDB.Rows.Item(c).Item(11), _
                                         tablaDB.Rows.Item(c).Item(12), tablaDB.Rows.Item(c).Item(13), _
                                         tablaDB.Rows.Item(c).Item(14), tablaDB.Rows.Item(c).Item(15), _
                                         tablaDB.Rows.Item(c).Item(16), tablaDB.Rows.Item(c).Item(17))
            Next
        End If
        habilitarBotonesGrillaEmpleos()


        'Carga datos de Bienes Muebles
        consultaMuebles = "SELECT BM.ID_CLIENTE AS ID_CLIENTE, BM.PATENTE AS PATENTE, BM.ID_TIPO_BIEN_MUEBLE AS ID_TIPO_MUEBLE," & _
                       "T.DESCRIPCION AS TIPO, BM.ID_MARCA AS ID_MARCA, M.DESCRIPCION AS MARCA,BM.MODELO AS MODELO," & _
                       "BM.ANYO AS ANYO, CONVERT(int, floor(BM.VALOR_MONETARIO)) AS VALOR_MONETARIO " & _
                 "FROM BIENES_MUEBLES BM INNER JOIN  TIPO_BIEN_MUEBLE T ON (BM.ID_TIPO_BIEN_MUEBLE =T.ID )" & _
                                        "INNER JOIN MARCAS_VEHICULOS M ON (BM.ID_MARCA =M.ID ) " & _
                 "WHERE BM.ID_CLIENTE =" & _idCliente
        tablaDB = myAccesoDatos.ejecutarConsulta(consultaMuebles)
        For c As Integer = 0 To tablaDB.Rows.Count - 1
            Me.gridBienesMuebles.Rows.Add(tablaDB.Rows.Item(c).Item(0), tablaDB.Rows.Item(c).Item(1), _
                                     tablaDB.Rows.Item(c).Item(2), tablaDB.Rows.Item(c).Item(3), _
                                     tablaDB.Rows.Item(c).Item(4), tablaDB.Rows.Item(c).Item(5), _
                                     tablaDB.Rows.Item(c).Item(6), tablaDB.Rows.Item(c).Item(7), _
                                     tablaDB.Rows.Item(c).Item(8), (c + 1))
        Next
        habilitarBotonesGrillaMuebles()

        ' Cargar datos Inmuebles
        consultaInmuebles = "SELECT BI.NRO_CATASTRO_DGR  AS NRO_CATASTRO, " & _
             "BI.DESCRIPCION AS DESCRIPCION, CONVERT(int, floor(BI.VALOR_MONETARIO)) AS VALOR_MONETARIO, " & _
             "D.CALLE AS CALLE,D.NUMERO AS NUMERO, D.PISO AS PISO, D.DEPTO AS DEPTO, D.ID_LOCALIDAD AS ID_LOCALIDAD, AG.DESCRIPCION AS LOCALIDAD " & _
        "FROM BIENES_INMUEBLES BI INNER JOIN DIRECCIONES D ON (BI.ID_DIRECCION =D.ID )" & _
                                 "INNER JOIN AREAS_GEOGRAFICAS AG ON (D.ID_LOCALIDAD =AG.ID)  " & _
       "WHERE BI.ID_CLIENTE = " & _idCliente
        tablaDB = myAccesoDatos.ejecutarConsulta(consultaInmuebles)
        For c As Integer = 0 To tablaDB.Rows.Count - 1
            Me.gridBienesInmuebles.Rows.Add(tablaDB.Rows.Item(c).Item(0), tablaDB.Rows.Item(c).Item(1), _
                                     tablaDB.Rows.Item(c).Item(2), tablaDB.Rows.Item(c).Item(3), _
                                     tablaDB.Rows.Item(c).Item(4), tablaDB.Rows.Item(c).Item(5), _
                                     tablaDB.Rows.Item(c).Item(6), tablaDB.Rows.Item(c).Item(7), _
                                     tablaDB.Rows.Item(c).Item(8), (c + 1))
        Next
        habilitarBotonesGrillaInmuebles()
    End Sub

    Private Sub mostrarBotones()
        Me.cmdAceptar.Visible = (Not _componentesHabilitados)
        Me.cmdGuardar.Visible = _componentesHabilitados
        Me.cmdCancelar.Visible = _componentesHabilitados
    End Sub
    'PROCESOS TELEFONOS

    Private Sub cmdAgregarTelefono_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAgregarTelefono.Click
        Dim frmTelefono As New frmTelefono(Constantes.Ventana_Tipo_Apertura_Nuevo, Me)
        frmTelefono.ShowDialog()
    End Sub

    Private Sub cmdModificarTelefono_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdModificarTelefono.Click
        Dim frmTelefono As New frmTelefono(Constantes.Ventana_Tipo_Apertura_Edicion, Me)

        Dim filaSeleccionada As DataGridViewRow
        Dim idTipoTelefono As New String("")
        Dim nroTelefono As New String("")
        Dim nroSecuencia As New String("")
        For Each filaSeleccionada In gridTelefono.SelectedRows
            idTipoTelefono = Convert.ToString(filaSeleccionada.Cells(2).Value)
            nroTelefono = Convert.ToString(filaSeleccionada.Cells(4).Value)
            nroSecuencia = Convert.ToString(filaSeleccionada.Cells(1).Value)
        Next

        frmTelefono.idTipoTelefono = Convert.ToUInt32(idTipoTelefono)
        frmTelefono.telefono = Convert.ToUInt32(nroTelefono)
        frmTelefono.nroSecuencia = Convert.ToUInt32(nroSecuencia)
        frmTelefono.ShowDialog()

    End Sub
    Public Sub actualizarGrillaTelefono(ByVal idTelefono As Integer, ByVal tipoTelefono As String, ByVal numero As String, ByVal nroSecuencia As String, ByVal tipoVentana As Integer)
        Dim idCliente As Integer
        ''idCliente = Me.txtNumeroCliente.Text

        If tipoVentana = Constantes.Ventana_Tipo_Apertura_Nuevo Then
            secuencia = secuencia + 1
            Me.gridTelefono.Rows.Add(idCliente, secuencia, idTelefono, tipoTelefono, numero)
        Else

            For c As Integer = 0 To gridTelefono.RowCount - 1
                If Convert.ToString(Me.gridTelefono.Rows(c).Cells("NRO_SECUENCIA").Value) = Convert.ToString(nroSecuencia) Then
                    Me.gridTelefono.Rows(c).Cells("ID_TIPO_TELEFONO").Value = Convert.ToString(idTelefono)
                    Me.gridTelefono.Rows(c).Cells("DESCRIPCION").Value = Convert.ToString(tipoTelefono)
                    Me.gridTelefono.Rows(c).Cells("NUMERO").Value = Convert.ToString(numero)
                End If
            Next

        End If
        habilitarBotonesGrillaTelefono()
    End Sub

    Public Function existeTelefono(ByVal numero As String, ByVal secuencia As String) As Boolean
        Dim existe As Boolean = False

        For c As Integer = 0 To gridTelefono.RowCount - 1
            If Convert.ToString(Me.gridTelefono.Rows(c).Cells("NUMERO").Value) = Convert.ToString(numero) Then
                If Convert.ToString(Me.gridTelefono.Rows(c).Cells("NRO_SECUENCIA").Value) <> Convert.ToString(secuencia) Then
                    existe = True
                End If
            End If
        Next

        Return existe
    End Function

    Public Function existeEmpleo(ByVal CARGO As String, ByVal ORGANIZACION As String, ByVal NRO_SECUENCIA1 As String) As Boolean
        Dim existe As Boolean = False

        For c As Integer = 0 To gridEmpleos.RowCount - 1
            If Convert.ToString(Me.gridEmpleos.Rows(c).Cells("CARGO").Value) = Convert.ToString(CARGO) _
                    And Convert.ToString(Me.gridEmpleos.Rows(c).Cells("ORGANIZACION").Value) = Convert.ToString(ORGANIZACION) Then
                If Convert.ToString(Me.gridEmpleos.Rows(c).Cells("NRO_SECUENCIA1").Value) <> Convert.ToString(NRO_SECUENCIA1) Then
                    existe = True
                End If
            End If
        Next

        Return existe
    End Function

    Public Function existeMueble(ByVal PATENTE As String, ByVal SEC1 As String) As Boolean
        Dim existe As Boolean = False

        For c As Integer = 0 To gridBienesMuebles.RowCount - 1
            If Convert.ToString(Me.gridBienesMuebles.Rows(c).Cells("PATENTE").Value) = Convert.ToString(PATENTE) Then
                If Convert.ToString(Me.gridBienesMuebles.Rows(c).Cells("SEC1").Value) <> Convert.ToString(SEC1) Then
                    existe = True
                End If
            End If
        Next

        Return existe
    End Function

    Public Function existeInMueble(ByVal NRO_CATASTRO As String, ByVal SEC2 As String) As Boolean
        Dim existe As Boolean = False

        For c As Integer = 0 To gridBienesInmuebles.RowCount - 1
            If Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("NRO_CATASTRO").Value) = Convert.ToString(NRO_CATASTRO) Then
                If Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("SEC2").Value) <> Convert.ToString(SEC2) Then
                    existe = True
                End If
            End If
        Next

        Return existe
    End Function
    Private Sub cmdBorrarTelefono_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBorrarTelefono.Click
        If MessageBox.Show("¿Está seguro que desea eliminar este Teléfono?", "Importante", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
            For Each filaSeleccionada In gridTelefono.SelectedRows
                gridTelefono.Rows.Remove(gridTelefono.CurrentRow)
            Next
        End If
        habilitarBotonesGrillaTelefono()
    End Sub

    ''PROCESOS EMPLEOS CLIENTES

    Private Sub cmdAgregarEmpleo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAgregarEmpleo.Click
        Dim frmEmpleosClientes As New frmEmpleosClientes(Constantes.Ventana_Tipo_Apertura_Nuevo, Me)
        frmEmpleosClientes.ShowDialog()
        Me.habilitarBotonesGrillaEmpleos()
    End Sub

    Private Sub cmdModificarEmpleo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdModificarEmpleo.Click
        Dim frmEmpleosClientes As New frmEmpleosClientes(Constantes.Ventana_Tipo_Apertura_Edicion, Me)

        Dim filaSeleccionada As DataGridViewRow
        Dim nroSecuencia As New String("")
        For Each filaSeleccionada In gridEmpleos.SelectedRows
            nroSecuencia = Convert.ToString(filaSeleccionada.Cells(1).Value)

            frmEmpleosClientes.ID_CLIENTE1 = Convert.ToString(filaSeleccionada.Cells(0).Value)
            frmEmpleosClientes.NRO_SECUENCIA1 = Convert.ToString(filaSeleccionada.Cells(1).Value)
            frmEmpleosClientes.ORGANIZACION = Convert.ToString(filaSeleccionada.Cells(2).Value)
            frmEmpleosClientes.FECHA1 = Convert.ToString(filaSeleccionada.Cells(3).Value)
            frmEmpleosClientes.CARGO = Convert.ToString(filaSeleccionada.Cells(4).Value)
            frmEmpleosClientes.SALARIO = Convert.ToString(filaSeleccionada.Cells("SALARIO").Value)
            frmEmpleosClientes.ID_DIRECCION1 = Convert.ToString(filaSeleccionada.Cells(6).Value)
            frmEmpleosClientes.CALLE1 = Convert.ToString(filaSeleccionada.Cells(7).Value)
            frmEmpleosClientes.NRO = Convert.ToString(filaSeleccionada.Cells("NRO").Value)
            frmEmpleosClientes.PISO = Convert.ToString(filaSeleccionada.Cells(9).Value)
            frmEmpleosClientes.DEPTO = Convert.ToString(filaSeleccionada.Cells(10).Value)
            frmEmpleosClientes.ID_LOCALIDAD = Convert.ToString(filaSeleccionada.Cells(11).Value)
            frmEmpleosClientes.LOCALIDAD = Convert.ToString(filaSeleccionada.Cells(12).Value)
            frmEmpleosClientes.TELEFONO = Convert.ToString(filaSeleccionada.Cells(13).Value)
            frmEmpleosClientes.CONTACTO = Convert.ToString(filaSeleccionada.Cells(14).Value)
            frmEmpleosClientes.ID_TIPO_EMPLEO = Convert.ToString(filaSeleccionada.Cells(15).Value)
            frmEmpleosClientes.EMPLEO = Convert.ToString(filaSeleccionada.Cells(16).Value)
            frmEmpleosClientes.OBSERVACIONES = Convert.ToString(filaSeleccionada.Cells("OBSERVACIONES").Value)
        Next

        frmEmpleosClientes._idCliente = _idCliente
        frmEmpleosClientes._secuenciaEmpleo = nroSecuencia
        frmEmpleosClientes.ShowDialog()

    End Sub

    Public Sub actualizarGrillaMuebles(ByVal ID_CLIENTE2 As String, ByVal PATENTE As String, ByVal ID_TIPO_MUEBLE As String, _
                                   ByVal TIPO As String, ByVal ID_MARCA As String, ByVal MARCA As String, _
                                   ByVal MODELO As String, ByVal ANYO As String, ByVal VALOR_MONETARIO As String, _
                                   ByVal SEC1 As String, ByVal tipoVentana As Integer)

        If tipoVentana = Constantes.Ventana_Tipo_Apertura_Nuevo Then
            secuencia = secuenciaEmpleos + 1
            Me.gridBienesMuebles.Rows.Add(ID_CLIENTE2, PATENTE, ID_TIPO_MUEBLE, TIPO, ID_MARCA, MARCA, MODELO, _
                                    ANYO, VALOR_MONETARIO, SEC1)
        Else

            For c As Integer = 0 To gridBienesMuebles.RowCount - 1
                If Convert.ToString(Me.gridBienesMuebles.Rows(c).Cells("SEC1").Value) = Convert.ToString(SEC1) Then
                    Me.gridBienesMuebles.Rows(c).Cells("ID_CLIENTE2").Value = Convert.ToString(ID_CLIENTE2)
                    Me.gridBienesMuebles.Rows(c).Cells("PATENTE").Value = Convert.ToString(PATENTE)
                    Me.gridBienesMuebles.Rows(c).Cells("ID_TIPO_MUEBLE").Value = Convert.ToString(ID_TIPO_MUEBLE)
                    Me.gridBienesMuebles.Rows(c).Cells("TIPO").Value = Convert.ToString(TIPO)
                    Me.gridBienesMuebles.Rows(c).Cells("ID_MARCA").Value = Convert.ToString(ID_MARCA)
                    Me.gridBienesMuebles.Rows(c).Cells("MARCA").Value = Convert.ToString(MARCA)
                    Me.gridBienesMuebles.Rows(c).Cells("MODELO").Value = Convert.ToString(MODELO)
                    Me.gridBienesMuebles.Rows(c).Cells("ANYO").Value = Convert.ToString(ANYO)
                    Me.gridBienesMuebles.Rows(c).Cells("VALOR_MONETARIO").Value = Convert.ToString(VALOR_MONETARIO)
                    Me.gridBienesMuebles.Rows(c).Cells("SEC1").Value = Convert.ToString(SEC1)
                End If
            Next

        End If
        habilitarBotonesGrillaMuebles()
    End Sub

    Public Sub actualizarGrillaInMuebles(ByVal NRO_CATASTRO As String, ByVal DESCRIPCION1 As String, ByVal VALOR_MONETARIO1 As String, _
                               ByVal CALLE2 As String, ByVal NUMERO1 As String, ByVal PISO1 As String, _
                               ByVal DEPTO1 As String, ByVal ID_LOCALIDAD1 As String, ByVal LOCALIDAD1 As String, _
                               ByVal SEC2 As String, ByVal tipoVentana As Integer)

        If tipoVentana = Constantes.Ventana_Tipo_Apertura_Nuevo Then
            secuencia = secuenciaEmpleos + 1
            Me.gridBienesInmuebles.Rows.Add(NRO_CATASTRO, DESCRIPCION1, VALOR_MONETARIO1, CALLE2, NUMERO1, PISO1, DEPTO1, _
                                    ID_LOCALIDAD1, LOCALIDAD1, SEC2)
        Else

            For c As Integer = 0 To gridBienesInmuebles.RowCount - 1
                If Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("SEC2").Value) = Convert.ToString(SEC2) Then
                    Me.gridBienesInmuebles.Rows(c).Cells("NRO_CATASTRO").Value = Convert.ToString(NRO_CATASTRO)
                    Me.gridBienesInmuebles.Rows(c).Cells("DESCRIPCION1").Value = Convert.ToString(DESCRIPCION1)
                    Me.gridBienesInmuebles.Rows(c).Cells("VALOR_MONETARIO1").Value = Convert.ToString(VALOR_MONETARIO1)
                    Me.gridBienesInmuebles.Rows(c).Cells("CALLE2").Value = Convert.ToString(CALLE2)
                    Me.gridBienesInmuebles.Rows(c).Cells("NUMERO1").Value = Convert.ToString(NUMERO1)
                    Me.gridBienesInmuebles.Rows(c).Cells("PISO1").Value = Convert.ToString(PISO1)
                    Me.gridBienesInmuebles.Rows(c).Cells("DEPTO1").Value = Convert.ToString(DEPTO1)
                    Me.gridBienesInmuebles.Rows(c).Cells("ID_LOCALIDAD1").Value = Convert.ToString(ID_LOCALIDAD1)
                    Me.gridBienesInmuebles.Rows(c).Cells("LOCALIDAD1").Value = Convert.ToString(LOCALIDAD1)
                    Me.gridBienesInmuebles.Rows(c).Cells("SEC2").Value = Convert.ToString(SEC2)
                End If
            Next

        End If
        habilitarBotonesGrillaInmuebles()
    End Sub

    Public Sub actualizarGrillaEmpleos(ByVal ID_CLIENTE1 As String, ByVal NRO_SECUENCIA1 As String, ByVal ORGANIZACION As String, _
                                       ByVal FECHA1 As String, ByVal CARGO As String, ByVal SALARIO As String, _
                                       ByVal ID_DIRECCION1 As String, ByVal CALLE1 As String, ByVal NRO As String, _
                                       ByVal PISO As String, ByVal DEPTO As String, ByVal ID_LOCALIDAD As String, _
                                       ByVal LOCALIDAD As String, ByVal TELEFONO As String, ByVal CONTACTO As String, _
                                       ByVal ID_TIPO_EMPLEO As String, ByVal EMPLEO As String, ByVal OBSERVACIONES As String, _
                                       ByVal tipoVentana As Integer)

        If tipoVentana = Constantes.Ventana_Tipo_Apertura_Nuevo Then
            secuenciaEmpleos = secuenciaEmpleos + 1
            Me.gridEmpleos.Rows.Add(ID_CLIENTE1, secuenciaEmpleos, ORGANIZACION, FECHA1, CARGO, SALARIO, ID_DIRECCION1, _
                                    CALLE1, NRO, PISO, DEPTO, ID_LOCALIDAD, LOCALIDAD, TELEFONO, _
                                    CONTACTO, ID_TIPO_EMPLEO, EMPLEO, OBSERVACIONES)
        Else

            For c As Integer = 0 To gridEmpleos.RowCount - 1
                If Convert.ToString(Me.gridEmpleos.Rows(c).Cells("NRO_SECUENCIA1").Value) = Convert.ToString(NRO_SECUENCIA1) Then
                    Me.gridEmpleos.Rows(c).Cells("ID_CLIENTE1").Value = Convert.ToString(ID_CLIENTE1)
                    Me.gridEmpleos.Rows(c).Cells("NRO_SECUENCIA1").Value = Convert.ToString(NRO_SECUENCIA1)
                    Me.gridEmpleos.Rows(c).Cells("ORGANIZACION").Value = Convert.ToString(ORGANIZACION)
                    Me.gridEmpleos.Rows(c).Cells("FECHA1").Value = Convert.ToString(FECHA1)
                    Me.gridEmpleos.Rows(c).Cells("CARGO").Value = Convert.ToString(CARGO)
                    Me.gridEmpleos.Rows(c).Cells("SALARIO").Value = Convert.ToString(SALARIO)
                    Me.gridEmpleos.Rows(c).Cells("ID_DIRECCION1").Value = Convert.ToString(ID_DIRECCION1)
                    Me.gridEmpleos.Rows(c).Cells("CALLE1").Value = Convert.ToString(CALLE1)
                    Me.gridEmpleos.Rows(c).Cells("NRO").Value = Convert.ToString(NRO)
                    Me.gridEmpleos.Rows(c).Cells("PISO").Value = Convert.ToString(PISO)
                    Me.gridEmpleos.Rows(c).Cells("DEPTO").Value = Convert.ToString(DEPTO)
                    Me.gridEmpleos.Rows(c).Cells("ID_LOCALIDAD").Value = Convert.ToString(ID_LOCALIDAD)
                    Me.gridEmpleos.Rows(c).Cells("LOCALIDAD").Value = Convert.ToString(LOCALIDAD)
                    Me.gridEmpleos.Rows(c).Cells("TELEFONO").Value = Convert.ToString(TELEFONO)
                    Me.gridEmpleos.Rows(c).Cells("CONTACTO").Value = Convert.ToString(CONTACTO)
                    Me.gridEmpleos.Rows(c).Cells("ID_TIPO_EMPLEO").Value = Convert.ToString(ID_TIPO_EMPLEO)
                    Me.gridEmpleos.Rows(c).Cells("EMPLEO").Value = Convert.ToString(EMPLEO)
                    Me.gridEmpleos.Rows(c).Cells("OBSERVACIONES").Value = Convert.ToString(OBSERVACIONES)
                End If
            Next

        End If
        habilitarBotonesGrillaEmpleos()
    End Sub
    Private Sub cmdBorrarEmpleo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBorrarEmpleo.Click
        If MessageBox.Show("¿Está seguro que desea eliminar este Empleo?", "Importante", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
            For Each filaSeleccionada In gridEmpleos.SelectedRows
                gridEmpleos.Rows.Remove(gridEmpleos.CurrentRow)
            Next
        End If
        habilitarBotonesGrillaEmpleos()
    End Sub

    ''PROCESOS BIENES MUEBLES

    Private Sub cmdAgregarMueble_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAgregarMueble.Click
        Dim frmBienesMuebles As New frmBienesMuebles(Constantes.Ventana_Tipo_Apertura_Nuevo, Me)
        frmBienesMuebles.ShowDialog()
        Me.habilitarBotonesGrillaMuebles()
    End Sub

    Public Sub actualizarGrillaMuebles(ByVal tipo As String, ByVal marca As String, ByVal patente As String, ByVal modelo As String, ByVal valor As Double, ByVal anno As Integer)
        Me.gridBienesMuebles.Rows.Add(tipo, marca, patente, modelo, valor, anno)
        Me.habilitarBotonesGrillaMuebles()
    End Sub

    Private Sub cmdModificarMueble_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdModificarMueble.Click
        Dim frmBienesMuebles As New frmBienesMuebles(Constantes.Ventana_Tipo_Apertura_Edicion, Me)

        Dim filaSeleccionada As DataGridViewRow

        For Each filaSeleccionada In gridBienesMuebles.SelectedRows
            frmBienesMuebles.ID_CLIENTE2 = Convert.ToString(filaSeleccionada.Cells(0).Value)
            frmBienesMuebles.PATENTE = Convert.ToString(filaSeleccionada.Cells(1).Value)
            frmBienesMuebles.ID_TIPO_MUEBLE = Convert.ToString(filaSeleccionada.Cells(2).Value)
            frmBienesMuebles.TIPO = Convert.ToString(filaSeleccionada.Cells(3).Value)
            frmBienesMuebles.ID_MARCA = Convert.ToString(filaSeleccionada.Cells(4).Value)
            frmBienesMuebles.MARCA = Convert.ToString(filaSeleccionada.Cells(5).Value)
            frmBienesMuebles.MODELO = Convert.ToString(filaSeleccionada.Cells(6).Value)
            frmBienesMuebles.ANYO = Convert.ToString(filaSeleccionada.Cells(7).Value)
            frmBienesMuebles.VALOR_MONETARIO = Convert.ToString(filaSeleccionada.Cells(8).Value)
            frmBienesMuebles.SEC1 = Convert.ToString(filaSeleccionada.Cells(9).Value)
        Next

        frmBienesMuebles._idCliente = _idCliente
        frmBienesMuebles.ShowDialog()
    End Sub

    Private Sub cmdBorrarMueble_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBorrarMueble.Click
        If MessageBox.Show("¿Está seguro que desea eliminar este Bien Mueble?", "Importante", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
            For Each filaSeleccionada In gridBienesMuebles.SelectedRows
                gridBienesMuebles.Rows.Remove(gridBienesMuebles.CurrentRow)
            Next
        End If
        habilitarBotonesGrillaMuebles()
    End Sub

    '' PROCESOS BIENES INMUEBLES

    Private Sub cmdAgregarInmueble_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAgregarInmueble.Click
        Dim frmBienesInmuebles As New frmBienesInmuebles(Constantes.Ventana_Tipo_Apertura_Nuevo, Me)
        frmBienesInmuebles.ShowDialog()
        habilitarBotonesGrillaInmuebles()
    End Sub

    Private Sub cmdModificarInmueble_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdModificarInmueble.Click
        Dim frmBienesInmuebles As New frmBienesInmuebles(Constantes.Ventana_Tipo_Apertura_Edicion, Me)

        Dim filaSeleccionada As DataGridViewRow

        For Each filaSeleccionada In gridBienesInmuebles.SelectedRows

            frmBienesInmuebles.NRO_CATASTRO = Convert.ToString(filaSeleccionada.Cells(0).Value)
            frmBienesInmuebles.DESCRIPCION1 = Convert.ToString(filaSeleccionada.Cells(1).Value)
            frmBienesInmuebles.VALOR_MONETARIO1 = Convert.ToString(filaSeleccionada.Cells(2).Value)
            frmBienesInmuebles.CALLE2 = Convert.ToString(filaSeleccionada.Cells(3).Value)
            frmBienesInmuebles.NUMERO1 = Convert.ToString(filaSeleccionada.Cells(4).Value)
            frmBienesInmuebles.PISO1 = Convert.ToString(filaSeleccionada.Cells(5).Value)
            frmBienesInmuebles.DEPTO1 = Convert.ToString(filaSeleccionada.Cells(6).Value)
            frmBienesInmuebles.ID_LOCALIDAD1 = Convert.ToString(filaSeleccionada.Cells(7).Value)
            frmBienesInmuebles.LOCALIDAD1 = Convert.ToString(filaSeleccionada.Cells(8).Value)
            frmBienesInmuebles.SEC2 = Convert.ToString(filaSeleccionada.Cells(9).Value)
        Next

        frmBienesInmuebles._idCliente = _idCliente
        frmBienesInmuebles.ShowDialog()
    End Sub


    Public Sub actualizarGrillaInmuebles(ByVal catastro As Integer, ByVal valor As Double, ByVal descripcion As String, ByVal calle As String, ByVal nro As Integer, ByVal piso As String, ByVal depto As String, ByVal localidad As String)
        Me.gridBienesInmuebles.Rows.Add(catastro, valor, descripcion, calle, nro, piso, depto, localidad)
        Me.habilitarBotonesGrillaMuebles()
    End Sub

    Private Sub cmdBorrarInmueble_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBorrarInmueble.Click
        If MessageBox.Show("¿Está seguro que desea eliminar este Bien Inmueble?", "Importante", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
            For Each filaSeleccionada In gridBienesInmuebles.SelectedRows
                gridBienesInmuebles.Rows.Remove(gridBienesInmuebles.CurrentRow)
            Next
        End If
        habilitarBotonesGrillaInmuebles()
    End Sub




    Private Sub cmdGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGuardar.Click
        Dim myAccesoDatos As New AccesoDatos
        Dim tabla As New Data.DataTable
        Dim consulta As String

        If Me.cmbTipoDocumento.SelectedIndex < 1 Then
            MsgBox("El Tipo de Documento es requerido.", vbOKOnly + vbCritical, "Atención")
            Me.cmbTipoDocumento.Focus()
            Exit Sub
        End If
        If Me.txtNumeroDocumento.Text.Trim() = "" Then
            MsgBox("El Número de Documento es requerido.", vbOKOnly + vbCritical, "Atención")
            Me.txtNumeroDocumento.Focus()
            Exit Sub
        End If
        If Me.txtApellido.Text.Trim() = "" Then
            MsgBox("El Apellido es requerido.", vbOKOnly + vbCritical, "Atención")
            Me.txtApellido.Focus()
            Exit Sub
        End If
        If Me.txtNombre.Text.Trim() = "" Then
            MsgBox("El Nombre es requerido.", vbOKOnly + vbCritical, "Atención")
            Me.txtNombre.Focus()
            Exit Sub
        End If
        If Me.txtCuil.Text.Trim() = "" Then
            MsgBox("El CUIL es requerido.", vbOKOnly + vbCritical, "Atención")
            Me.txtCuil.Focus()
            Exit Sub
        End If
        If Me.cmbPaisNacimiento.SelectedIndex < 1 Then
            MsgBox("El País de Nacimiento es requerido.", vbOKOnly + vbCritical, "Atención")
            Me.cmbPaisNacimiento.Focus()
            Exit Sub
        End If
        If Me.cmbEstadoCivil.SelectedValue < 1 Then
            MsgBox("El Estado Civil es requerido.", vbOKOnly + vbCritical, "Atención")
            Me.cmbEstadoCivil.Focus()
            Exit Sub
        End If
        If Me.txtFechaNacimiento.Text.Trim = "/  /" Then
            MsgBox("La Fecha de Nacimiento es requerida.", vbOKOnly + vbCritical, "Atención")
            Me.txtFechaNacimiento.Focus()

        End If
        If Not IsDate(txtFechaNacimiento.Text.Trim) Then
            MsgBox("Fecha de Nacimiento Inválida", vbOKOnly + vbCritical, "Atención")
            txtFechaNacimiento.Focus()
            Exit Sub
        End If
        If Me.cmbSexo.SelectedIndex < 1 Then
            MsgBox("El Sexo es requerido.", vbOKOnly + vbCritical, "Atención")
            Me.cmbSexo.Focus()
            Exit Sub
        End If
        If Me.chk.Checked = True Then
            If Me.cmbTipoDocumentoConyuge.SelectedIndex < 1 Then
                MsgBox("El Tipo de Documento del Cóyuge es requerido.", vbOKOnly + vbCritical, "Atención")
                Me.cmbTipoDocumentoConyuge.Focus()
                Exit Sub
            End If
            If Me.txtNumeroDocumentoConyuge.Text.Trim() = "" Then
                MsgBox("El Número de Documento del Cóyuge es requerido.", vbOKOnly + vbCritical, "Atención")
                Me.txtNumeroDocumentoConyuge.Focus()
                Exit Sub
            End If
            If Me.txtApellidoConyuge.Text.Trim() = "" Then
                MsgBox("El Apellido del Cóyuge es requerido.", vbOKOnly + vbCritical, "Atención")
                Me.txtApellidoConyuge.Focus()
                Exit Sub
            End If
            If Me.txtNombreConyuge.Text.Trim() = "" Then
                MsgBox("El Nombre del Cóyuge es requerido.", vbOKOnly + vbCritical, "Atención")
                Me.txtNombreConyuge.Focus()
                Exit Sub
            End If
        End If
        If Me.txtGrupoFamiliar.Text.Trim = "" Then
            MsgBox("El Grupo Familiar es requerido.", vbOKOnly + vbCritical, "Atención")
            Me.txtGrupoFamiliar.Focus()
            Exit Sub
        End If

        If Me.txtCalle.Text.Trim = "" Then
            MsgBox("La Calle es requerida.", vbOKOnly + vbCritical, "Atención")
            Me.txtCalle.Focus()
            Exit Sub
        End If
        If Me.cmbLocalidad.SelectedValue < 1 Then
            MsgBox("La Localidad es requerida.", vbOKOnly + vbCritical, "Atención")
            Me.cmbLocalidad.Focus()
            Exit Sub
        End If
        If Me.cmbPertenenciaVivienda.SelectedIndex < 1 Then
            MsgBox("La Pertenencia de la Vivienda es requerida.", vbOKOnly + vbCritical, "Atención")
            Me.cmbPertenenciaVivienda.Focus()
            Exit Sub
        End If

        consulta = "SELECT C.ID FROM CLIENTES C WHERE C.ID_TIPO_DOCUMENTO = " + Convert.ToString(Me.cmbTipoDocumento.SelectedValue)
        consulta = consulta + " AND C.NRO_DOCUMENTO = " + Me.txtNumeroDocumento.Text
        If _tipoVentana = Constantes.Ventana_Tipo_Apertura_Edicion Then
            consulta = consulta + " AND C.ID <> " + _idCliente
        End If
        tabla = myAccesoDatos.ejecutarConsulta(consulta)

        If tabla.Rows.Count > 0 Then
            MsgBox("Ya existe un Cliente con ese Tipo y Número de Documento.", vbOKOnly + vbCritical, "Atención")
            Me.txtNumeroDocumento.Focus()
            Exit Sub
        End If

        If MessageBox.Show("¿Está seguro que desea guardar los cambios?", "Atención", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.OK Then

            If _tipoVentana = Constantes.Ventana_Tipo_Apertura_Nuevo Then
                Dim fecha = utilidades.obtenerFechaFormatoSQLServer2008(txtFechaAlta.Text.Trim)

                consulta = "INSERT INTO DIRECCIONES(CALLE,NUMERO,PISO,DEPTO,ID_LOCALIDAD) VALUES('Florida','549','2','2A','113')"
                myAccesoDatos.ejecutarConsulta(consulta)

                consulta = "SELECT MAX (ID) AS ULTIMO FROM DIRECCIONES "
                tabla = myAccesoDatos.ejecutarConsulta(consulta)
                _idDireccion = Convert.ToString(tabla.Rows(0)("ULTIMO"))

                consulta = "INSERT INTO CLIENTES(NOMBRE, APELLIDO, ID_TIPO_DOCUMENTO, NRO_DOCUMENTO, "
                consulta = consulta + "ID_GENERO,ID_PAIS_NACIMIENTO, ID_ESTADO_CIVIL, FECHA_NACIMIENTO, CUIL, ID_DIRECCION,"
                consulta = consulta + "ID_PERTENENCIA_VIVIENDA, MONTO_ALQUILER, GRUPO_FAMILIAR , APELLIDO_CONYUGE, NOMBRE_CONYUGE,"
                consulta = consulta + "ID_TIPO_DOCUMENTO_CONYUGE, NRO_DOCUMENTO_CONYUGE, EMAIL, ID_ESTADO_CLIENTE, PUNTAJE, FECHA_ALTA) VALUES( "
                consulta = consulta + " '" & Me.txtNombre.Text.Trim() & "',  '" & Me.txtApellido.Text.Trim() & "', "
                consulta = consulta + Convert.ToString(Me.cmbTipoDocumento.SelectedValue)
                consulta = consulta + ", '" & Me.txtNumeroDocumento.Text.Trim() & "' "
                consulta = consulta + ", " & Convert.ToString(Me.cmbSexo.SelectedValue)
                consulta = consulta + ", " & Convert.ToString(Me.cmbPaisNacimiento.SelectedValue)
                consulta = consulta + ", " & Convert.ToString(Me.cmbEstadoCivil.SelectedValue)
                consulta = consulta + ", '" & utilidades.obtenerFechaFormatoSQLServer2008(Me.txtFechaNacimiento.Text.Trim())
                consulta = consulta + "', " & Me.txtCuil.Text.Trim() & ", " + _idDireccion
                consulta = consulta + ", " & Convert.ToString(Me.cmbPertenenciaVivienda.SelectedValue)
                If Me.txtMontoAlquiler.Text.Trim() = "" Then
                    consulta = consulta + ", NULL"
                Else
                    consulta = consulta + ", " & Me.txtMontoAlquiler.Text.Trim()
                End If
                consulta = consulta + ", '" & Me.txtGrupoFamiliar.Text.Trim() & "'"
                If Me.chk.Checked = True Then
                    consulta = consulta + ", '" & Me.txtApellidoConyuge.Text.Trim() & "'"
                    consulta = consulta + ", '" & Me.txtNombreConyuge.Text.Trim() & "'"
                    consulta = consulta + ", " & Convert.ToString(cmbTipoDocumentoConyuge.SelectedValue)
                    consulta = consulta + ", '" & Me.txtNumeroDocumentoConyuge.Text.Trim() & "'"
                Else
                    consulta = consulta + ", NULL, NULL, NULL, NULL"
                End If
                consulta = consulta + ", '" & Me.txtEmail.Text.Trim() & "'"
                consulta = consulta + ", 1 "
                consulta = consulta + ", ' " & Me.txtPuntaje.Text.Trim() & "'"
                consulta = consulta + ", '" & fecha & "')"

                myAccesoDatos.ejecutarConsulta(consulta)

                consulta = "SELECT MAX (ID) AS ULTIMO FROM CLIENTES "
                tabla = myAccesoDatos.ejecutarConsulta(consulta)
                _idCliente = tabla.Rows(0)("ULTIMO")

                consulta = "UPDATE DIRECCIONES SET CALLE = '" + Me.txtCalle.Text.Trim + "',"
                If Me.txtNumeroCalle.Text.Trim = "" Then
                    consulta = consulta + " NUMERO = NULL,"
                Else
                    consulta = consulta + " NUMERO = " + Me.txtNumeroCalle.Text.Trim + ","
                End If
                If Me.txtPiso.Text.Trim = "" Then
                    consulta = consulta + " PISO = NULL,"
                Else
                    consulta = consulta + " PISO = " + Me.txtPiso.Text.Trim + ","
                End If
                consulta = consulta + " DEPTO = '" + Me.txtDepartamento.Text.Trim + "', "
                consulta = consulta + " ID_LOCALIDAD = " + Convert.ToString(Me.cmbLocalidad.SelectedValue)
                consulta = consulta + " WHERE ID = " + _idDireccion
                myAccesoDatos.ejecutarConsulta(consulta)

            End If

            If _tipoVentana = Constantes.Ventana_Tipo_Apertura_Edicion Then

                consulta = "UPDATE CLIENTES SET NOMBRE = '" & Me.txtNombre.Text.Trim() & "', APELLIDO = '" & Me.txtApellido.Text.Trim() & "', ID_TIPO_DOCUMENTO = "
                consulta = consulta + Convert.ToString(Me.cmbTipoDocumento.SelectedValue)
                consulta = consulta + ", NRO_DOCUMENTO= '" & Me.txtNumeroDocumento.Text.Trim() & "' "
                consulta = consulta + ", ID_GENERO = " & Convert.ToString(Me.cmbSexo.SelectedValue)
                consulta = consulta + ", ID_PAIS_NACIMIENTO = " & Convert.ToString(Me.cmbPaisNacimiento.SelectedValue)
                consulta = consulta + ", ID_ESTADO_CIVIL = " & Convert.ToString(Me.cmbEstadoCivil.SelectedValue)
                consulta = consulta + ", FECHA_NACIMIENTO =  '" & utilidades.obtenerFechaFormatoSQLServer2008(Me.txtFechaNacimiento.Text.Trim())
                consulta = consulta + "', CUIL =  '" & Me.txtCuil.Text.Trim() & "'"
                consulta = consulta + ", ID_PERTENENCIA_VIVIENDA = " & Convert.ToString(Me.cmbPertenenciaVivienda.SelectedValue)
                If Me.txtMontoAlquiler.Text.Trim() = "" Then
                    consulta = consulta + ", MONTO_ALQUILER = NULL"
                Else
                    consulta = consulta + ", MONTO_ALQUILER = " & Me.txtMontoAlquiler.Text.Trim()
                End If
                consulta = consulta + ", GRUPO_FAMILIAR = '" & Me.txtGrupoFamiliar.Text.Trim() & "'"
                If Me.chk.Checked = True Then
                    consulta = consulta + ", APELLIDO_CONYUGE = '" & Me.txtApellidoConyuge.Text.Trim() & "'"
                    consulta = consulta + ", NOMBRE_CONYUGE = '" & Me.txtNombreConyuge.Text.Trim() & "'"
                    consulta = consulta + ", ID_TIPO_DOCUMENTO_CONYUGE = " & Convert.ToString(cmbTipoDocumentoConyuge.SelectedValue)
                    consulta = consulta + ", NRO_DOCUMENTO_CONYUGE = '" & Me.txtNumeroDocumentoConyuge.Text.Trim() & "'"
                Else
                    consulta = consulta + ", APELLIDO_CONYUGE = NULL, NOMBRE_CONYUGE = NULL, ID_TIPO_DOCUMENTO_CONYUGE = NULL, NRO_DOCUMENTO_CONYUGE = NULL"
                End If
                consulta = consulta + ", EMAIL = '" & Me.txtEmail.Text.Trim() & "' WHERE ID = " + idCliente
                myAccesoDatos.ejecutarConsulta(consulta)


                consulta = "UPDATE DIRECCIONES SET CALLE = '" + Me.txtCalle.Text.Trim + "',"
                If Me.txtNumeroCalle.Text.Trim = "" Then
                    consulta = consulta + " NUMERO = NULL,"
                Else
                    consulta = consulta + " NUMERO = " + Me.txtNumeroCalle.Text.Trim + ","
                End If
                If Me.txtPiso.Text.Trim = "" Then
                    consulta = consulta + " PISO = NULL,"
                Else
                    consulta = consulta + " PISO = " + Me.txtPiso.Text.Trim + ","
                End If
                consulta = consulta + " DEPTO = '" + Me.txtDepartamento.Text.Trim + "', "
                consulta = consulta + " ID_LOCALIDAD = " + Convert.ToString(Me.cmbLocalidad.SelectedValue)
                consulta = consulta + " WHERE ID = " + _idDireccion
                myAccesoDatos.ejecutarConsulta(consulta)

            End If

            consulta = "DELETE FROM TELEFONOS_CLIENTE WHERE ID_CLIENTE = " + _idCliente
            myAccesoDatos.ejecutarConsulta(consulta)
            If Me.gridTelefono.RowCount > 0 Then
                For c As Integer = 0 To gridTelefono.RowCount - 1
                    consulta = "INSERT INTO TELEFONOS_CLIENTE (ID_CLIENTE,NRO_SECUENCIA,ID_TIPO_TELEFONO,NRO_TELEFONO) VALUES ("
                    consulta = consulta + _idCliente + ", " + Convert.ToString(c + 1) + ", "
                    consulta = consulta + Convert.ToString(Me.gridTelefono.Rows(c).Cells("ID_TIPO_TELEFONO").Value) + ", "
                    consulta = consulta + "'" + Convert.ToString(Me.gridTelefono.Rows(c).Cells("NUMERO").Value) + "')"
                    myAccesoDatos.ejecutarConsulta(consulta)
                Next
            End If

            consulta = "DELETE FROM EMPLEOS_CLIENTES WHERE ID_CLIENTE = " + _idCliente
            myAccesoDatos.ejecutarConsulta(consulta)
            If Me.gridEmpleos.RowCount > 0 Then
                For c As Integer = 0 To gridEmpleos.RowCount - 1


                    consulta = "INSERT INTO DIRECCIONES(CALLE,NUMERO,PISO,DEPTO,ID_LOCALIDAD) VALUES('Florida','549','2','2A','113')"
                    myAccesoDatos.ejecutarConsulta(consulta)

                    consulta = "SELECT MAX (ID) AS ULTIMO FROM DIRECCIONES "
                    tabla = myAccesoDatos.ejecutarConsulta(consulta)
                    _idDireccion = Convert.ToString(tabla.Rows(0)("ULTIMO"))

                    consulta = "INSERT INTO EMPLEOS_CLIENTES (ID_CLIENTE,NRO_SECUENCIA,NOMBRE_ORGANIZACION,"
                    consulta = consulta + " FECHA_INCORPORACION,CARGO,SALARIO_NETO,TELEFONO, "
                    consulta = consulta + " PERSONA_CONTACTO,OBSERVACIONES,ID_DIRECCION,ID_TIPO_EMPLEO) VALUES ( "
                    consulta = consulta + _idCliente + ", " + Convert.ToString(c + 1) + ", "
                    consulta = consulta + "'" + Convert.ToString(Me.gridEmpleos.Rows(c).Cells("ORGANIZACION").Value) + "', "
                    consulta = consulta + "'" + utilidades.obtenerFechaFormatoSQLServer2008(Convert.ToString(Me.gridEmpleos.Rows(c).Cells("FECHA1").Value)) + "', "
                    consulta = consulta + "'" + Convert.ToString(Me.gridEmpleos.Rows(c).Cells("CARGO").Value) + "', "
                    consulta = consulta + Convert.ToString(Me.gridEmpleos.Rows(c).Cells("SALARIO").Value) + ", "
                    consulta = consulta + "'" + Convert.ToString(Me.gridEmpleos.Rows(c).Cells("TELEFONO").Value) + "', "
                    consulta = consulta + "'" + Convert.ToString(Me.gridEmpleos.Rows(c).Cells("CONTACTO").Value) + "', "
                    consulta = consulta + "'" + Convert.ToString(Me.gridEmpleos.Rows(c).Cells("OBSERVACIONES").Value) + "', "
                    consulta = consulta + _idDireccion + ", "
                    consulta = consulta + Convert.ToString(Me.gridEmpleos.Rows(c).Cells("ID_TIPO_EMPLEO").Value) + ")"
                    myAccesoDatos.ejecutarConsulta(consulta)

                    consulta = "UPDATE DIRECCIONES SET CALLE = '" + Convert.ToString(Me.gridEmpleos.Rows(c).Cells("CALLE1").Value) + "',"
                    If Convert.ToString(Me.gridEmpleos.Rows(c).Cells("NRO").Value).Trim = "" Then
                        consulta = consulta + " NUMERO = NULL,"
                    Else
                        consulta = consulta + " NUMERO = " + Convert.ToString(Me.gridEmpleos.Rows(c).Cells("NRO").Value) + ","
                    End If
                    If Convert.ToString(Me.gridEmpleos.Rows(c).Cells("PISO").Value).Trim = "" Then
                        consulta = consulta + " PISO = NULL,"
                    Else
                        consulta = consulta + " PISO = " + Convert.ToString(Me.gridEmpleos.Rows(c).Cells("PISO").Value) + ","
                    End If

                    consulta = consulta + " DEPTO = '" + Convert.ToString(Me.gridEmpleos.Rows(c).Cells("DEPTO").Value) + "', "
                    consulta = consulta + " ID_LOCALIDAD = " + Convert.ToString(Me.gridEmpleos.Rows(c).Cells("ID_LOCALIDAD").Value)
                    consulta = consulta + " WHERE ID = " + _idDireccion
                    myAccesoDatos.ejecutarConsulta(consulta)
                Next
            End If


            consulta = "DELETE FROM BIENES_MUEBLES WHERE ID_CLIENTE = " + _idCliente
            myAccesoDatos.ejecutarConsulta(consulta)
            If Me.gridBienesMuebles.RowCount > 0 Then
                For c As Integer = 0 To gridBienesMuebles.RowCount - 1
                    consulta = "INSERT INTO BIENES_MUEBLES (ID_CLIENTE,PATENTE,ID_TIPO_BIEN_MUEBLE,ID_MARCA, "
                    consulta = consulta + " MODELO,ANYO,VALOR_MONETARIO) VALUES (  "
                    consulta = consulta + _idCliente + ", "
                    consulta = consulta + "'" + Convert.ToString(Me.gridBienesMuebles.Rows(c).Cells("PATENTE").Value) + "', "
                    consulta = consulta + Convert.ToString(Me.gridBienesMuebles.Rows(c).Cells("ID_TIPO_MUEBLE").Value) + ", "
                    consulta = consulta + Convert.ToString(Me.gridBienesMuebles.Rows(c).Cells("ID_MARCA").Value) + ", "
                    consulta = consulta + "'" + Convert.ToString(Me.gridBienesMuebles.Rows(c).Cells("MODELO").Value) + "', "
                    consulta = consulta + Convert.ToString(Me.gridBienesMuebles.Rows(c).Cells("ANYO").Value) + ", "
                    consulta = consulta + Convert.ToString(Me.gridBienesMuebles.Rows(c).Cells("VALOR_MONETARIO").Value) + ")"
                    myAccesoDatos.ejecutarConsulta(consulta)
                Next
            End If

            consulta = "DELETE FROM BIENES_INMUEBLES WHERE ID_CLIENTE = " + _idCliente
            myAccesoDatos.ejecutarConsulta(consulta)
            If Me.gridBienesInmuebles.RowCount > 0 Then
                For c As Integer = 0 To gridBienesInmuebles.RowCount - 1

                    consulta = "INSERT INTO DIRECCIONES(CALLE,NUMERO,PISO,DEPTO,ID_LOCALIDAD) VALUES('Florida','549','2','2A','113')"
                    myAccesoDatos.ejecutarConsulta(consulta)

                    consulta = "SELECT MAX (ID) AS ULTIMO FROM DIRECCIONES "
                    tabla = myAccesoDatos.ejecutarConsulta(consulta)
                    _idDireccion = Convert.ToString(tabla.Rows(0)("ULTIMO"))

                    consulta = "INSERT INTO BIENES_INMUEBLES (ID_CLIENTE,ID_DIRECCION,NRO_CATASTRO_DGR,DESCRIPCION, "
                    consulta = consulta + " VALOR_MONETARIO) VALUES (  "
                    consulta = consulta + _idCliente + ", "
                    consulta = consulta + _idDireccion + ", "
                    consulta = consulta + Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("NRO_CATASTRO").Value) + ", "
                    consulta = consulta + "'" + Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("DESCRIPCION1").Value) + "', "
                    consulta = consulta + Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("VALOR_MONETARIO1").Value) + ")"
                    myAccesoDatos.ejecutarConsulta(consulta)

                    consulta = "UPDATE DIRECCIONES SET CALLE = '" + Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("CALLE2").Value) + "',"
                    If Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("NUMERO1").Value).Trim = "" Then
                        consulta = consulta + " NUMERO = NULL, "
                    Else
                        consulta = consulta + " NUMERO = " + Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("NUMERO1").Value) + ","
                    End If
                    If Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("PISO1").Value).Trim = "" Then
                        consulta = consulta + " PISO = NULL, "
                    Else
                        consulta = consulta + " PISO = " + Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("PISO1").Value) + ","
                    End If
                    consulta = consulta + " DEPTO = '" + Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("DEPTO1").Value) + "', "
                    consulta = consulta + " ID_LOCALIDAD = " + Convert.ToString(Me.gridBienesInmuebles.Rows(c).Cells("ID_LOCALIDAD1").Value)
                    consulta = consulta + " WHERE ID = " + _idDireccion
                    myAccesoDatos.ejecutarConsulta(consulta)

                Next
            End If


            MessageBox.Show("Los datos han sido guardados exitosamente", "Guardar Cliente", MessageBoxButtons.OK, MessageBoxIcon.Information)
            _formPrincipal.frmGestionClientes.buscar(_formPrincipal.frmGestionClientes.armarWhereConsulta)
            _sePresionoGuardar = True
            Me.Close()
        End If
    End Sub

    Public Sub habilitarBotonesGrillaTelefono()
        If Me.gridTelefono.RowCount < 1 Then
            Me.cmdModificarTelefono.Enabled = False
            Me.cmdBorrarTelefono.Enabled = False
        Else
            Me.cmdModificarTelefono.Enabled = True
            Me.cmdBorrarTelefono.Enabled = True
        End If
    End Sub
    Public Sub habilitarBotonesGrillaEmpleos()
        If Me.gridEmpleos.RowCount < 1 Then
            Me.cmdBorrarEmpleo.Enabled = False
            Me.cmdModificarEmpleo.Enabled = False
            Me.cmdVerEmpleo.Enabled = False
        Else
            Me.cmdBorrarEmpleo.Enabled = True
            Me.cmdModificarEmpleo.Enabled = True
            Me.cmdVerEmpleo.Enabled = True
        End If
    End Sub
    Public Sub habilitarBotonesGrillaMuebles()
        If Me.gridBienesMuebles.RowCount < 1 Then
            Me.cmdBorrarMueble.Enabled = False
            Me.cmdModificarMueble.Enabled = False
            Me.cmdVerMueble.Enabled = False
        Else
            Me.cmdBorrarMueble.Enabled = True
            Me.cmdModificarMueble.Enabled = True
            Me.cmdVerMueble.Enabled = True
        End If
    End Sub
    Public Sub habilitarBotonesGrillaInmuebles()
        If Me.gridBienesInmuebles.RowCount < 1 Then
            Me.cmdBorrarInmueble.Enabled = False
            Me.cmdModificarInmueble.Enabled = False
            Me.cmdVerInmueble.Enabled = False
        Else
            Me.cmdBorrarInmueble.Enabled = True
            Me.cmdModificarInmueble.Enabled = True
            Me.cmdVerInmueble.Enabled = True
        End If
    End Sub
    Private Sub txtNumeroDocumento_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNumeroDocumento.KeyPress
        utilidades.validarKeyPressNumerico(e)
    End Sub

    Private Sub txtNumeroDocumentoConyuge_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNumeroDocumentoConyuge.KeyPress
        utilidades.validarKeyPressNumerico(e)
    End Sub

    Private Sub txtNumeroCalle_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNumeroCalle.KeyPress
        utilidades.validarKeyPressNumerico(e)
    End Sub

    Private Sub frmClientes_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If Not _tipoVentana = Constantes.Ventana_Tipo_Apertura_Detalle Then
            If _sePresionoGuardar = False Then
                If MessageBox.Show("Si cancela no se guardarán los cambios ¿Está seguro?", "Atención", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.OK Then
                    e.Cancel = False
                Else
                    e.Cancel = True
                End If
            End If
        End If
    End Sub

    Private Sub cmdCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancelar.Click
        _sePresionoGuardar = False
        Me.Close()
    End Sub

    Private Sub cmdNuevaSolicitudPrestamo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNuevaSolicitudPrestamo.Click
        Dim frmSolicitudPrestamo As New frmSolicitudPrestamo(Constantes.Ventana_Tipo_Apertura_Nuevo, _formPrincipal)
        frmSolicitudPrestamo.idCliente = _idCliente
        frmSolicitudPrestamo.ShowDialog()
    End Sub

    Private Sub cmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAceptar.Click
        Me.Close()
    End Sub

    Private Sub txtFechaNacimiento_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtFechaNacimiento.KeyPress
        utilidades.validarKeyPressNumerico(e)
    End Sub


    Private Sub chk_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk.CheckedChanged
        If chk.Checked = True Then
            GroupBox2.Enabled = True
        Else
            GroupBox2.Enabled = False
        End If
    End Sub

    Private Sub txtMontoAlquiler_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtMontoAlquiler.KeyPress
        utilidades.validarKeyPressNumerico(e)
    End Sub

    Private Sub txtPiso_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPiso.KeyPress
        utilidades.validarKeyPressNumerico(e)
    End Sub

    Private Sub cmdVerEmpleo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVerEmpleo.Click
        Dim frmEmpleosClientes As New frmEmpleosClientes(Constantes.Ventana_Tipo_Apertura_Detalle, Me)

        Dim filaSeleccionada As DataGridViewRow
        Dim nroSecuencia As New String("")
        For Each filaSeleccionada In gridEmpleos.SelectedRows
            nroSecuencia = Convert.ToString(filaSeleccionada.Cells(1).Value)

            frmEmpleosClientes.ID_CLIENTE1 = Convert.ToString(filaSeleccionada.Cells(0).Value)
            frmEmpleosClientes.NRO_SECUENCIA1 = Convert.ToString(filaSeleccionada.Cells(1).Value)
            frmEmpleosClientes.ORGANIZACION = Convert.ToString(filaSeleccionada.Cells(2).Value)
            frmEmpleosClientes.FECHA1 = Convert.ToString(filaSeleccionada.Cells(3).Value)
            frmEmpleosClientes.CARGO = Convert.ToString(filaSeleccionada.Cells(4).Value)
            frmEmpleosClientes.SALARIO = Convert.ToString(filaSeleccionada.Cells("SALARIO").Value)
            frmEmpleosClientes.ID_DIRECCION1 = Convert.ToString(filaSeleccionada.Cells(6).Value)
            frmEmpleosClientes.CALLE1 = Convert.ToString(filaSeleccionada.Cells(7).Value)
            frmEmpleosClientes.NRO = Convert.ToString(filaSeleccionada.Cells("NRO").Value)
            frmEmpleosClientes.PISO = Convert.ToString(filaSeleccionada.Cells(9).Value)
            frmEmpleosClientes.DEPTO = Convert.ToString(filaSeleccionada.Cells(10).Value)
            frmEmpleosClientes.ID_LOCALIDAD = Convert.ToString(filaSeleccionada.Cells(11).Value)
            frmEmpleosClientes.LOCALIDAD = Convert.ToString(filaSeleccionada.Cells(12).Value)
            frmEmpleosClientes.TELEFONO = Convert.ToString(filaSeleccionada.Cells(13).Value)
            frmEmpleosClientes.CONTACTO = Convert.ToString(filaSeleccionada.Cells(14).Value)
            frmEmpleosClientes.ID_TIPO_EMPLEO = Convert.ToString(filaSeleccionada.Cells(15).Value)
            frmEmpleosClientes.EMPLEO = Convert.ToString(filaSeleccionada.Cells(16).Value)
            frmEmpleosClientes.OBSERVACIONES = Convert.ToString(filaSeleccionada.Cells(17).Value)
        Next

        frmEmpleosClientes._idCliente = _idCliente
        frmEmpleosClientes._secuenciaEmpleo = nroSecuencia
        frmEmpleosClientes.ShowDialog()
    End Sub

    Private Sub cmdVerMueble_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVerMueble.Click
        Dim frmBienesMuebles As New frmBienesMuebles(Constantes.Ventana_Tipo_Apertura_Detalle, Me)

        Dim filaSeleccionada As DataGridViewRow

        For Each filaSeleccionada In gridBienesMuebles.SelectedRows

            frmBienesMuebles.ID_CLIENTE2 = Convert.ToString(filaSeleccionada.Cells(0).Value)
            frmBienesMuebles.PATENTE = Convert.ToString(filaSeleccionada.Cells(1).Value)
            frmBienesMuebles.ID_TIPO_MUEBLE = Convert.ToString(filaSeleccionada.Cells(2).Value)
            frmBienesMuebles.TIPO = Convert.ToString(filaSeleccionada.Cells(3).Value)
            frmBienesMuebles.ID_MARCA = Convert.ToString(filaSeleccionada.Cells(4).Value)
            frmBienesMuebles.MARCA = Convert.ToString(filaSeleccionada.Cells(5).Value)
            frmBienesMuebles.MODELO = Convert.ToString(filaSeleccionada.Cells(6).Value)
            frmBienesMuebles.ANYO = Convert.ToString(filaSeleccionada.Cells(7).Value)
            frmBienesMuebles.VALOR_MONETARIO = Convert.ToString(filaSeleccionada.Cells(8).Value)
            frmBienesMuebles.SEC1 = Convert.ToString(filaSeleccionada.Cells(9).Value)
        Next

        frmBienesMuebles._idCliente = _idCliente
        frmBienesMuebles.ShowDialog()
    End Sub

    Private Sub cmdVerInmueble_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVerInmueble.Click
        Dim frmBienesInmuebles As New frmBienesInmuebles(Constantes.Ventana_Tipo_Apertura_Detalle, Me)

        Dim filaSeleccionada As DataGridViewRow

        For Each filaSeleccionada In gridBienesInmuebles.SelectedRows

            frmBienesInmuebles.NRO_CATASTRO = Convert.ToString(filaSeleccionada.Cells(0).Value)
            frmBienesInmuebles.DESCRIPCION1 = Convert.ToString(filaSeleccionada.Cells(1).Value)
            frmBienesInmuebles.VALOR_MONETARIO1 = Convert.ToString(filaSeleccionada.Cells(2).Value)
            frmBienesInmuebles.CALLE2 = Convert.ToString(filaSeleccionada.Cells(3).Value)
            frmBienesInmuebles.NUMERO1 = Convert.ToString(filaSeleccionada.Cells(4).Value)
            frmBienesInmuebles.PISO1 = Convert.ToString(filaSeleccionada.Cells(5).Value)
            frmBienesInmuebles.DEPTO1 = Convert.ToString(filaSeleccionada.Cells(6).Value)
            frmBienesInmuebles.ID_LOCALIDAD1 = Convert.ToString(filaSeleccionada.Cells(7).Value)
            frmBienesInmuebles.LOCALIDAD1 = Convert.ToString(filaSeleccionada.Cells(8).Value)
            frmBienesInmuebles.SEC2 = Convert.ToString(filaSeleccionada.Cells(9).Value)
        Next

        frmBienesInmuebles._idCliente = _idCliente
        frmBienesInmuebles.ShowDialog()
    End Sub
End Class